/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / admin / ra / raprogs / stat2_1

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 13 20 f4 3e 3a | 30 2e 24 2e 53 54 41 54 |.... .>:|0.$.STAT|
|00000010| 32 2d 31 0d 00 14 0d 20 | de 20 41 24 28 34 30 29 |2-1.... |. A$(40)|
|00000020| 0d 00 1e 37 20 f4 20 54 | 68 69 73 20 70 72 6f 67 |...7 . T|his prog|
|00000030| 72 61 6d 20 6d 6f 76 65 | 73 20 61 6c 6c 20 73 74 |ram move|s all st|
|00000040| 61 74 65 6d 65 6e 74 73 | 20 65 66 66 65 63 74 69 |atements| effecti|
|00000050| 76 65 6c 79 20 75 70 0d | 00 28 38 20 f4 20 61 20 |vely up.|.(8 . a |
|00000060| 6c 65 76 65 6c 20 73 6f | 20 74 68 61 74 20 74 68 |level so| that th|
|00000070| 65 20 49 4e 54 45 52 4d | 45 44 49 41 54 45 20 73 |e INTERM|EDIATE s|
|00000080| 74 61 74 65 6d 65 6e 74 | 20 69 73 20 6e 6f 77 0d |tatement| is now.|
|00000090| 00 32 3e 20 f4 20 69 6e | 20 74 68 65 20 41 44 56 |.2> . in| the ADV|
|000000a0| 41 4e 43 45 44 20 70 6f | 73 69 74 69 6f 6e 2c 20 |ANCED po|sition, |
|000000b0| 74 68 65 20 42 41 53 49 | 43 20 69 6e 20 74 68 65 |the BASI|C in the|
|000000c0| 20 49 4e 54 45 52 4d 45 | 44 49 41 54 45 0d 00 3c | INTERME|DIATE..<|
|000000d0| 38 20 f4 20 74 68 65 20 | 41 44 56 41 4e 43 45 20 |8 . the |ADVANCE |
|000000e0| 66 72 6f 6d 20 74 68 65 | 20 70 72 65 76 69 6f 75 |from the| previou|
|000000f0| 73 20 62 6c 6f 63 6b 20 | 69 6e 20 74 68 65 20 42 |s block |in the B|
|00000100| 41 53 49 43 2e 0d 00 46 | 40 20 f4 20 54 68 75 73 |ASIC...F|@ . Thus|
|00000110| 20 6f 6e 63 65 20 74 68 | 65 20 42 41 53 49 43 20 | once th|e BASIC |
|00000120| 73 74 61 74 65 6d 65 6e | 74 73 20 61 72 65 20 75 |statemen|ts are u|
|00000130| 70 20 64 61 74 65 64 20 | 61 20 73 65 63 6f 6e 64 |p dated |a second|
|00000140| 20 79 65 61 72 0d 00 50 | 30 20 f4 20 62 6c 6f 63 | year..P|0 . bloc|
|00000150| 6b 20 69 73 20 74 72 61 | 6e 73 66 65 72 72 65 64 |k is tra|nsferred|
|00000160| 20 74 6f 20 61 20 66 69 | 72 73 74 20 79 65 61 72 | to a fi|rst year|
|00000170| 20 6f 6e 65 2e 0d 00 5a | 04 0d 00 64 3c 20 e8 22 | one...Z|...d< ."|
|00000180| 45 6e 74 65 72 20 66 69 | 6c 65 6e 61 6d 65 20 61 |Enter fi|lename a|
|00000190| 73 20 69 74 20 61 70 70 | 65 61 72 73 20 69 6e 20 |s it app|ears in |
|000001a0| 73 75 62 6a 65 63 74 20 | 64 69 72 65 63 74 6f 72 |subject |director|
|000001b0| 79 22 3b 4e 24 0d 00 6e | 09 20 49 25 3d 31 0d 00 |y";N$..n|. I%=1..|
|000001c0| 78 0c 20 58 3d ad 28 4e | 24 29 0d 00 82 06 20 f5 |x. X=.(N|$).... .|
|000001d0| 0d 00 8c 33 20 e8 23 58 | 2c 41 24 28 49 25 29 20 |...3 .#X|,A$(I%) |
|000001e0| 20 20 20 3a f4 20 72 65 | 61 64 20 6e 65 78 74 20 |   :. re|ad next |
|000001f0| 73 74 61 74 65 6d 65 6e | 74 20 69 6e 74 6f 20 41 |statemen|t into A|
|00000200| 24 28 29 0d 00 96 0c 20 | 49 25 3d 49 25 2b 31 0d |$().... |I%=I%+1.|
|00000210| 00 a0 0a 20 fd 20 c5 23 | 58 0d 00 aa 08 20 d9 23 |... . .#|X.... .#|
|00000220| 30 0d 00 b4 10 20 59 3d | ae 28 22 54 45 4d 50 22 |0.... Y=|.("TEMP"|
|00000230| 29 0d 00 be 12 20 f1 23 | 59 2c c4 32 34 30 2c 22 |).... .#|Y,.240,"|
|00000240| 41 22 29 0d 00 c8 12 20 | e3 20 4a 25 3d 31 20 b8 |A").... |. J%=1 .|
|00000250| 20 49 25 2d 31 0d 00 d2 | 0f 20 f1 23 59 2c 41 24 | I%-1...|. .#Y,A$|
|00000260| 28 4a 25 29 0d 00 dc 06 | 20 ed 0d 00 f0 08 20 d9 |(J%)....| ..... .|
|00000270| 23 30 0d ff             |                         |#0..    |        |
+--------+-------------------------+-------------------------+--------+--------+